home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / h / h.bat < prev    next >
DOS Batch File  |  1993-01-28  |  5KB  |  386 lines
  1. @echo off
  2. cls
  3.  
  4. :H1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO H2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :H2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO H1
  39. IF ERRORLEVEL 22 GOTO H3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :H3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO H2
  69. IF ERRORLEVEL 22 GOTO H4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :H4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU23
  97.  
  98. IF ERRORLEVEL 23 GOTO QUIT
  99. IF ERRORLEVEL 22 GOTO H3
  100. IF ERRORLEVEL 21 GOTO 84
  101. IF ERRORLEVEL 20 GOTO 83
  102. IF ERRORLEVEL 19 GOTO 82
  103. IF ERRORLEVEL 18 GOTO 81
  104. IF ERRORLEVEL 17 GOTO 80
  105. IF ERRORLEVEL 16 GOTO 79
  106. IF ERRORLEVEL 15 GOTO 78
  107. IF ERRORLEVEL 14 GOTO 77
  108. IF ERRORLEVEL 13 GOTO 76
  109. IF ERRORLEVEL 12 GOTO 75
  110. IF ERRORLEVEL 11 GOTO 74
  111. IF ERRORLEVEL 10 GOTO 73
  112. IF ERRORLEVEL 9 GOTO 72
  113. IF ERRORLEVEL 8 GOTO 71
  114. IF ERRORLEVEL 7 GOTO 70
  115. IF ERRORLEVEL 6 GOTO 69
  116. IF ERRORLEVEL 5 GOTO 68
  117. IF ERRORLEVEL 4 GOTO 67
  118. IF ERRORLEVEL 3 GOTO 66
  119. IF ERRORLEVEL 2 GOTO 65
  120. IF ERRORLEVEL 1 GOTO 64
  121.  
  122. :1
  123. VPIC /A HA031_05
  124. GOTO H1
  125. :2
  126. VPIC /A HA041_06
  127. GOTO H1
  128. :3
  129. VPIC /A HA051_03
  130. GOTO H1
  131. :4
  132. VPIC /A HA052_01
  133. GOTO H1
  134. :5
  135. VPIC /A HA052_02
  136. GOTO H1
  137. :6
  138. VPIC /A HA052_03
  139. GOTO H1
  140. :7
  141. VPIC /A HAJEK
  142. GOTO H1
  143. :8
  144. VPIC /A HALFMAST
  145. GOTO H1
  146. :9
  147. VPIC /A HANDCUFF
  148. GOTO H1
  149. :10
  150. VPIC /A HANG1
  151. GOTO H1
  152. :11
  153. VPIC /A HANNAH
  154. GOTO H1
  155. :12
  156. VPIC /A HEAVEN2
  157. GOTO H1
  158. :13
  159. VPIC /A HEAVY1
  160. GOTO H1
  161. :14
  162. VPIC /A HEAVY2
  163. GOTO H1
  164. :15
  165. VPIC /A HEIDI11
  166. GOTO H1
  167. :16
  168. VPIC /A HEIDI14
  169. GOTO H1
  170. :17
  171. VPIC /A HEIDIHO2
  172. GOTO H1
  173. :18
  174. VPIC /A HELENE1
  175. GOTO H1
  176. :19
  177. VPIC /A HELP3
  178. GOTO H1
  179. :20
  180. VPIC /A HEMING
  181. GOTO H1
  182. :21
  183. VPIC /A HERMAPH5
  184. GOTO H1
  185. :22
  186. VPIC /A HERSHEY
  187. GOTO H2
  188. :23
  189. VPIC /A HER_DIL3
  190. GOTO H2
  191. :24
  192. VPIC /A HF032_00
  193. GOTO H2
  194. :25
  195. VPIC /A HF042_05
  196. GOTO H2
  197. :26
  198. VPIC /A HF043_04
  199. GOTO H2
  200. :27
  201. VPIC /A HF052_03
  202. GOTO H2
  203. :28
  204. VPIC /A HF054_04
  205. GOTO H2
  206. :29
  207. VPIC /A HF054_05
  208. GOTO H2
  209. :30
  210. VPIC /A HF054_06
  211. GOTO H2
  212. :31
  213. VPIC /A HF061_01
  214. GOTO H2
  215. :32
  216. VPIC /A HF061_03
  217. GOTO H2
  218. :33
  219. VPIC /A HF061_04
  220. GOTO H2
  221. :34
  222. VPIC /A HIDEHED
  223. GOTO H2
  224. :35
  225. VPIC /A HIEDI2
  226. GOTO H2
  227. :36
  228. VPIC /A HIKER2
  229. GOTO H2
  230. :37
  231. VPIC /A HIND146
  232. GOTO H2
  233. :38
  234. VPIC /A HIND41
  235. GOTO H2
  236. :39
  237. VPIC /A HIND47
  238. GOTO H2
  239. :40
  240. VPIC /A HIND58
  241. GOTO H2
  242. :41
  243. VPIC /A HIND66
  244. GOTO H2
  245. :42
  246. VPIC /A HIND73
  247. GOTO H2
  248. :43
  249. VPIC /A HIND81
  250. GOTO H3
  251. :44
  252. VPIC /A HIND82
  253. GOTO H3
  254. :45
  255. VPIC /A HIND94
  256. GOTO H3
  257. :46
  258. VPIC /A HIND95
  259. GOTO H3
  260. :47
  261. VPIC /A HIND96
  262. GOTO H3
  263. :48
  264. VPIC /A HK258-_
  265. GOTO H3
  266. :49
  267. VPIC /A HK260_6
  268. GOTO H3
  269. :50
  270. VPIC /A HMMM_2
  271. GOTO H3
  272. :51
  273. VPIC /A HOLD_ON
  274. GOTO H3
  275. :52
  276. VPIC /A HOLLY1
  277. GOTO H3
  278. :53
  279. VPIC /A HOOKS_2
  280. GOTO H3
  281. :54
  282. VPIC /A HOT3A
  283. GOTO H3
  284. :55
  285. VPIC /A HOTBUNS
  286. GOTO H3
  287. :56
  288. VPIC /A HOTCUNT
  289. GOTO H3
  290. :57
  291. VPIC /A HOTJIZZ2
  292. GOTO H3
  293. :58
  294. VPIC /A HOTJIZZ8
  295. GOTO H3
  296. :59
  297. VPIC /A HOTWIFE1
  298. GOTO H3
  299. :60
  300. VPIC /A HOT_04
  301. GOTO H3
  302. :61
  303. VPIC /A HOT_07
  304. GOTO H3
  305. :62
  306. VPIC /A HOT_11
  307. GOTO H3
  308. :63
  309. VPIC /A HOT_8
  310. GOTO H3
  311. :64
  312. VPIC /A HOT_CL_G
  313. GOTO H4
  314. :65
  315. VPIC /A HPOOLO01
  316. GOTO H4
  317. :66
  318. VPIC /A HPOOLO02
  319. GOTO H4
  320. :67
  321. VPIC /A HRCE11C
  322. GOTO H4
  323. :68
  324. VPIC /A HS_JAN02
  325. GOTO H4
  326. :69
  327. VPIC /A HT_B0005
  328. GOTO H4
  329. :70
  330. VPIC /A HT_L0018
  331. GOTO H4
  332. :71
  333. VPIC /A HT_L0019
  334. GOTO H4
  335. :72
  336. VPIC /A HT_L0062
  337. GOTO H4
  338. :73
  339. VPIC /A HT_X0053
  340. GOTO H4
  341. :74
  342. VPIC /A HUGE_1
  343. GOTO H4
  344. :75
  345. VPIC /A HUGE_4
  346. GOTO H4
  347. :76
  348. VPIC /A HUGE_5
  349. GOTO H4
  350. :77
  351. VPIC /A HUMONGUS
  352. GOTO H4
  353. :78
  354. VPIC /A HUMP010
  355. GOTO H4
  356. :79
  357. VPIC /A HUMP013
  358. GOTO H4
  359. :80
  360. VPIC /A HUMP016
  361. GOTO H4
  362. :81
  363. VPIC /A HUMP019
  364. GOTO H4
  365. :82
  366. VPIC /A HUNGUP
  367. GOTO H4
  368. :83
  369. VPIC /A HURTS_2
  370. GOTO H4
  371. :84
  372. VPIC /A HYPATIA
  373. GOTO H4
  374.  
  375. :SELECTION 
  376. CD\SETUP
  377. FSTORM3
  378.  
  379. :QUIT
  380. CD\SETUP
  381. FSTORM3
  382.  
  383.  
  384.  
  385.  
  386.